
* OPEN STATA OUTPUT FILE LOG *

log using "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Output/FIGURE 1 & RELATED DESCRIPTIVE STATISTICS.04-19-2021.smcl", replace
 

   
    **** PROGRAM FILE FOR "CONFIRMATION DYNAMICS" PROJECT: TESTING 'DUE DILIGENCE' THEORY HYPOTHESES [N = 1,013: N = 991: UNCENSORED, N = 22: CENSORED] ****
   
   

   
   **** QUANTILE SURVIVAL MODELS: ASYMMETRIC LAPLACE MLE CONDITIONAL DENSITY SURVIVAL MODELS OF CONFIRMATION DECAY ****
 
 
 

 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *

use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace


******************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************




**** FIGURE 1A: CONFIRMATION DURATION [CONFIRMATION DATE - NOMINATION DATE] FOR TIER 1 PAS BUREAUCRATIC LEADERSHIP NOMINEES [SAME SENATE/CONGRESS BIENNIEL SESSION] ****
*
*set scheme sj
*
kdensity confdur if toplevel2==1 & confirmobserved==1 & agencyideol!=., lcolor(black) addplot((histogram confdur if toplevel2==1 &confirmobserved==1 & agencyideol!=., fcolor(gs10)), below) legend(off) ylabel(0(0.005)0.025, angle(0) labsize(small)) xlabel(0(100)500, angle(0) labsize(small)) note("") ytitle("Density", size(small) margin(r=2.5)) xtitle("Total Confirmation Duration for Tier 1 Nominees (Days)", size(small) margin(t=2)) title("FIGURE 1A: Tier 1 PAS Bureaucratic Leadership Confirmed Nominees", size(small))
*

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Descriptives/Figure1A.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Descriptives/Figure1A.eps"
*


**** FIGURE 1B: CONFIRMATION DURATION [CONFIRMATION DATE - NOMINATION DATE] FOR TIER 2 PAS BUREAUCRATIC LEADERSHIP NOMINEES [SAME SENATE/CONGRESS BIENNIEL SESSION] ****
*
*set scheme sj
*
kdensity confdur if toplevel2==0  & confirmobserved==1 & agencyideol!=., lcolor(black) addplot((histogram confdur if toplevel2==0 & confirmobserved==1 & agencyideol!=., fcolor(gs10)), below) legend(off) ylabel(0(0.005)0.025, angle(0) labsize(small)) xlabel(0(100)500, angle(0) labsize(small)) note("") ytitle("Density", size(small) margin(r=2.5)) xtitle("Total Confirmation Duration for Tier 2 Nominees (Days)", size(small) margin(t=2)) title("FIGURE 1B: Tier 2 PAS Bureaucratic Leadership Confirmed Nominees", size(small))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Descriptives/Figure1B.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Descriptives/Figure1B.eps"
*
*
*


**** DESCRIPTIVE STATISTICS ON SENATE CONFIRMATION DELAY [MENTIONED IN MANUSCRIPT TEXT WHEN DISCUSSING FIGURES 1A & 1B] *****


**** OVERALL: REPORT ONLY MEDIAN, MEDIAN ABSOLUTE DEVIATION, K-S EQUALITY OF DISTRIBUTIONS TEST STATISTICS ***

mads confdur if confirmobserved==1 & agencyideol!=.
sum  confdur if confirmobserved==1 & agencyideol!=., detail
*
mads confdur if confirmobserved==1 & agencyideol!=. & toplevel2==1
sum  confdur if confirmobserved==1 & agencyideol!=. & toplevel2==1, detail
*
mads confdur if confirmobserved==1 & agencyideol!=. & toplevel2==0
sum confdur if  confirmobserved==1 & agencyideol!=. & toplevel2==0, detail
*
*
ksmirnov confdur if confirmobserved==1 & agencyideol!=., by(toplevel2)
*
*
*
*
*
*

log close
 
